﻿Imports System.Data
Imports System.Data.SqlClient
Public Class frmAgregarEmpleado

    Private Sub frmAgregarEmpleado_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarEmpleado' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarEmpleadoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarEmpleado)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarEstado' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarEstadoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarEstado)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCargo' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarCargoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCargo)
        Me.txtNombre.Focus()
        Me.dtpFechaInicio.Text = Today
    End Sub

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Dispose()
        Me.Close()
    End Sub

    Private Sub AgregarEmpleado()
        Try
            SP_ListarEmpleadoTableAdapter.SP_InsertarEmpleado(Me.txtNombre.Text, Me.txtApellido.Text, Me.txtDireccion.Text, Me.cboEstado.EditValue, Me.dtpFechaInicio.Text, Me.cboCargo.EditValue)
            MessageBox.Show("Ha ingresado un nuevo empleado", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


    Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
        AgregarEmpleado()
        Me.Close()
    End Sub
End Class